home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / mail / iris.lha / Iris / IrisRMail.irx < prev    next >
Encoding:
Text File  |  1998-03-19  |  983 b   |  40 lines
  1. /* REXX-script to read mail into Iris                  */
  2. /* $VER: IrisRMail.irx V1.1 (supplied with Iris V1.2b) */
  3.  
  4. if ~show('l','rexxsupport.library') then addlib('rexxsupport.library',0,-30,0)
  5.  
  6. if showlist('a','amitcp') then do
  7.   irispath='AMITCP:Iris/Iris' /* 
  8.                                * This may need adaptation. You may remove
  9.                                * all these if's and just include the path.
  10.                                */
  11. end
  12. else do
  13.   if showlist('v','work') then do
  14.     irispath='Work:Iris/Iris'
  15.   end
  16.   else do
  17.     irispath='SYS:Iris/Iris'
  18.   end
  19. end
  20.  
  21. arg filename
  22.  
  23. if ~exists(irispath) then
  24. do
  25.     reqbody='"The path of Iris is wrong.*N'
  26.     reqbody=reqbody||'Please change it in the*Nscript."'
  27.     address command 'requestchoice "IrisRMail.irx"' reqbody '"Abort"'
  28.     exit 20
  29. end
  30.  
  31. if ~show('P','IRIS') then
  32. do
  33.     address command 'run <nil: >nil: '||irispath
  34.     do while ~show('P','IRIS')
  35.         address command 'wait 1'
  36.     end
  37. end
  38.  
  39. address 'IRIS' 'READMESSAGE' filename '0 *'
  40.